home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8708a.d64 / neuer cursor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  32 lines

  1. 0 REM *********************************
  2. 1 REM *   PROGRAMMIERBARE ZEICHEN     *
  3. 2 REM * ZEICHENSATZ WIRD VOM ROM INS  *
  4. 3 REM * RAM GESPIEGELT NACH 48*256.   *
  5. 4 REM * HIER KOENNEN DIE ZEICHEN      *
  6. 5 REM * BELIEBIG UMDEFINIERT WERDEN.  *
  7. 6 REM * DIE ROUTINE BELEGT 49152-49174*
  8. 7 REM *********************************
  9. 20 POKE56,48:CLR                    :REM SCHUTZ VOR UEBERSCHREIBEN
  10. 21 POKE56334,PEEK(56334)AND254      :REM INTERRUPT AUS
  11. 22 POKE1,PEEK(1)AND251              :REM EIN/AUSGABE AUS UND ZEICHENROM EIN
  12. 24 FORI=0TO22:READA:POKE49152+I,A:NEXT:SYS49152
  13. 25 DATA169,0,160,208,133,95,132,96,160,224,133,90,132,91,160,64,133,88,132
  14. 26 DATA89,76,191,163
  15. 27 POKE1,PEEK(1)OR4                 :REM EIN/AUSGABE EIN
  16. 28 POKE56334,PEEK(56334)OR1         :REM INTERRUPT EIN
  17. 29 POKE53272,(PEEK(53272)AND240)+12 :REM ZEICHENZEIGER STELLEN
  18. 30 Z1=48*256:Z2=56*256              :REM ADRESSE ZEICHENSPEICHER SATZ 1/2
  19. 98 :
  20. 99 :
  21. 100 FORI=0TO5:POKEZ1+8*160+I,0:NEXT :REM SPACE REVERS SATZ 1 VERAENDERN
  22. 101 END
  23. 198 :
  24. 199 :
  25. 200 DATA 24,24,24,24,126,60,24,0    :REM PFEIL FUER SPACE
  26. 201 FORI=0TO7:READA:POKEZ1+8*32+I,A:NEXT
  27. 202 POKE198,0:WAIT198,1:FORI=0TO7:POKEZ1+8*32+I,0:NEXT
  28. 298 :
  29. 299 :
  30. 300 A=Z1+8*32:B%=1:FORI=0TO1000:B%=B%*2:IFB%=256THENB%=1
  31. 301 POKEA,B%:NEXT                   :REM BEWEGUNG
  32.